home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS077A.dsk / APPLEWRITER TO TEXT.int < prev    next >
Text File  |  2012-02-16  |  1KB  |  37 lines
  1. 0 TEXT :CALL -936:D$="<CTRL-D>":PRINT D$;"BLOAD APPLEWRITER TO TEXT.OBJ"
  2. 5 TAB 8:PRINT "APPLEWRITER FILE TO TEXT"
  3. 10 PRINT :PRINT 
  4. 15 PRINT "THIS PROGRAM WILL TAKE A FILE CREATED"
  5. 20 PRINT "BY APPLEWRITER AND CONVERT IT INTO A"
  6. 25 PRINT "A TEXT FILE. THIS ALLOWS YOU TO DO THE"
  7. 30 PRINT "THE FOLLOWING WITH APPLEWRITER:"
  8. 35 PRINT "A.  WRITE 'EXEC' PROGRAMS."
  9. 40 PRINT "B.  WRITE PROGRAMS AND 'EXEC' THEM IN."
  10. 45 PRINT "C.  TAKE A PROGRAM IN APPLERWRITER AND"
  11. 50 PRINT "    VERIFY THEM BEFORE PUBLICATION."
  12. 55 PRINT "D.  PREPARE DOCUMENTS TO BE TRANSMITTED"
  13. 60 PRINT "    TO ANOTHER COMPUTER I.E. EDITING A"
  14. 65 PRINT "    FORTRAN PROGRAM  ECT."
  15. 70 PRINT :PRINT "THE OPTIONS ARE"
  16. 75 PRINT "1.   CONVERT TO UPPER CASE ONLY"
  17. 80 PRINT "2.   NO CONVERSION"
  18. 85 PRINT "3.   CONVERT TO UPPER AND CHANGE"
  19. 90 PRINT "     &&<CHR> TO A CONTROL CHARACTER."
  20. 95 PRINT :INPUT "INPUT OPTION NO.",OP
  21. 100 IF OP>4 OR OP<1 THEN 70
  22. 105  POKE 6,OP-1
  23. 110 DIM FI$(30)
  24. 115 PRINT D$;"CATALOG"
  25. 120 PRINT "THE NAME OF THE FILE TO BE CONVERTED?"
  26. 125 TAB 8:INPUT "TEXT.",FI$:IF NOT  LEN(FI$) THEN 115
  27. 130 PRINT D$;"BLOAD TEXT.";FI$;",A$900"
  28. 135 PRINT D$;"OPEN";FI$
  29. 140 PRINT D$;"DELETE";FI$
  30. 145 PRINT D$;"OPEN";FI$
  31. 150 PRINT D$;"WRITE";FI$
  32. 155 CALL 768:REM CALL BLOADED PGM
  33. 160 CALL -958:REM CLEAR TO END OF PAGE
  34. 165 PRINT :PRINT D$;"CLOSE"
  35. 170 PRINT "<CTRL-G>FINISHED":PRINT "TEXT FILE NAME IS ";FI$
  36. 175 END 
  37.